home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / src / stefanb_src.lha / UMS / Rexx / UserList.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-02-10  |  1.2 KB  |  84 lines

  1. /* $VER: UserList.rexx 1.0 */
  2.  
  3. options results
  4.  
  5. signal on BREAK_C
  6. signal on BREAK_D
  7. signal on BREAK_E
  8. signal on BREAK_F
  9. signal on ERROR
  10. signal on HALT
  11. signal on IOERR
  12. signal on SYNTAX
  13.  
  14. /*** Init ***/
  15.  
  16. call addlib("rexxdossupport.library", 0, -30)
  17. call addlib("ums.library", 0, -210, 11)
  18. call UMSInitConsts()
  19.  
  20. /*** Arguments ***/
  21.  
  22. parse SOURCE . " " . " " ProgramName .
  23. ArgsTemplate = "NAME/A,PASSWORD"
  24. args.SERVER = ""
  25. args.PASSWORD = ""
  26.  
  27. parse arg arguments
  28. if strip(arguments) = '?' then do
  29.   call writech(STDOUT, ArgsTemplate || ': ')
  30.   arguments = readln(STDIN)
  31. end; else nop
  32. if ~ReadArgs(arguments,ArgsTemplate,"args.") then do
  33.   say Fault(RC, ProgramName)
  34.   exit 10
  35. end; else nop
  36.  
  37. /*** Login ***/
  38.  
  39. account = UMSLogin(args.name, args.password, args.server)
  40. if account = 0 then do
  41.   say "unable to login."
  42.   exit 20
  43. end
  44.  
  45. /*** Do the magic ***/
  46.  
  47. user = ""
  48. do forever
  49.   user = UMSNextUser(account, user)
  50.   if user = "" then leave
  51.   say user
  52. end
  53.  
  54.  
  55. /*** Final cleanup ***/
  56.  
  57. BREAK_C:
  58. BREAK_D:
  59. BREAK_E:
  60. BREAK_F:
  61.  
  62. RC = 0
  63.  
  64. ERROR:
  65. HALT:
  66. IOERR:
  67. SYNTAX:
  68.  
  69. IF RC ~= 0 THEN DO
  70.   SAY "Error: " rc errortext(rc) "Line" sigl
  71.   rc = 20
  72. END
  73.  
  74. /*** Logout ***/
  75.  
  76. LOGOUT:
  77.  
  78. if account ~= 0 then do
  79.   call UMSLogout(account)
  80.   account = 0
  81. end
  82.  
  83. exit rc
  84.